R=220; % ������������� ��������� 220 ��
C=33*10^-12; % ������� ������������ 33 ��

b = [1];
a = [2*R*C 2];
w = logspace(0,9,10^4);
%w = 0:10000:10^12;

h = freqs(b,a,w);
mag = abs(h);
phase = angle(h);

%����� ���������� ������� � ������, ��� � ��������, � ��� � ���������, ����� ��������� ���:
f = w/(2*pi);
f = f/10^6;
%f = 20*log10(f);
%mag = 20*log10(mag);
phasedeg = phase*180/pi;


 %semilogx(f,mag);
subplot(2,1,1);
plot(f,mag);
grid on;
title('АЧХ');
xlabel('f, MГц');
ylabel('K(f), Коэфф. передачи');
ylim([0 0.5]);
set(gca, 'XTick',0 : 10 : 160);


%semilogx(f,phasedeg);
subplot(2,1,2);
plot(f,phasedeg,'r');
grid on;
title('ФЧХ');
xlabel('f, МГц');
ylabel('Phi(f), Фаза');
ylim([-90 0]);
set(gca, 'XTick',0 : 10 : 160);
set(gca, 'YTick', -90 : 10 : 0); 

%figure(4)
%subplot(4, 3, 3);
%plot(tt,BS, tt,S_msk); % �� ����� ������� ���. ������� ����. � �������������� ������
%set(gca, 'XTick',0 : Tb : N*Tb);
%grid on
%title('�������� �������� ����. � �������������� ������');
%legend('�������� ���', '�������������� ������');
%xlabel('t, c');
%ylim([-1.5 1.5]);